A_1 = (1.560308466804541, 5.798203673260743)
A_2 = (0.8956640453337791, 6.0817852930882665)
A_3 = (0.8513544172357284, 5.895684855076454)
P_1 = Point(xAxis)
C_1 = conic4P1T(A_1, A_2, A_3, P_1, xAxis)
P_2 = Point(xAxis)
P_3 = Point(xAxis)
P_4 = Point(xAxis)
P_5 = Point(xAxis)
P_6 = Point(xAxis)
C_2 = conic4P1T(A_1, A_2, A_3, P_2, xAxis)
C_3 = conic4P1T(A_1, A_2, A_3, P_3, xAxis)
C_4 = conic4P1T(A_1, A_2, A_3, P_4, xAxis)
C_5 = conic4P1T(A_1, A_2, A_3, P_5, xAxis)
C_6 = conic4P1T(A_1, A_2, A_3, P_6, xAxis)
Q_1 = Intersect(C_1, C_2, 3)
Q_2 = Intersect(C_2, C_3, 3)
Q_3 = Intersect(C_3, C_4, 3)
Q_4 = Intersect(C_4, C_5, 3)
Q_5 = Intersect(C_5, C_6, 3)
Q_6 = Intersect(C_1, C_6, 3)
D_1 = Conic(A_1, A_2, A_3, Q_1, Q_4)
D_2 = Conic(A_1, A_2, A_3, Q_2, Q_5)
D_3 = Conic(A_1, A_2, A_3, Q_3, Q_6)
E = Intersect(D_1, D_2, 3)

Tool: 4P1T (command conic4P1T)
conic[ <点>, <点>, <点>, <点>, <直线> ]
Input: A, B, C, D, xAxis
Output: c

eq1: x = x(A)
f = Line(A, B)
T = Intersect(f, xAxis)
g = Line(C, D)
U = Intersect(eq1, g)
h = Line(T, U)
i = Line(B, C)
V = Intersect(h, i)
j = Line(V, D)
E = Intersect(eq1, j)
c = Conic(A, B, C, E, D)